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Ll 
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LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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SS TT RR RR CC 00 00 MMMM MMMM PP PP AA AA RR RR 
SS TT RR RR CC 00 00 MM MM MM PP PP AA AA RR RR 
SS TT RR RR CC 00 00 MM MM MM PP PP AA AA RR RR 
SSSSSS TT RRRRRRRR CC 00 0O MM MM PPPPPPPP Aa AA RRRRRRRR 
SSSSSS TT RRRRRRRR CC 00 00 MM MM PPPPPPPP BA AA RRRRRRRR 
SS TT RR RR cc 00 00 MM MM PP AAAAAAAAAA RR RR 
SS TT RR RR cc 00 00 MM MM PP AAAAAAAAAA RR RR 
SS TT RR RR cc 00 00 MM MM PP AA AA RR RR eeee 
SS TT RR RR cc 00 00 MM MM PP AA AA RR RR eoee 
SSSSSSSS TT RR RR cccccccc 000000 MM MM PP AA AA RR RR cece 
SSSSSSSS TT RR RR cccccccc 000000 MM MM PP AA AA RR RR cove 
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LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
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MODULE STRSCOMPARE ( ! Compare 2 strings with blank fill 
IDENT = '1-006" ! File: STRCOMPAR.B32 Edit: RKR1006 
)ez 


BEGIN 


' 
POPES ESSLSIT STITT TTT ITIP ETT Terie tii rit ri titi tit iit iit iit iii ii itiitiiiiey 


iw COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

® 

® 

® 

4 

Hd ioe SOFTWARE IS epee UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i INCLUSION OF THe ABOVE ytd NOTICE. THIS SOFTWARE OR ANY OTHER * 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
+ 

:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!t CORPORATION. ® 
e 

B FOR THE USE OR _ RELIABILITY OF ITS ~ 
® 

® 

® 


!* DIGITAL ASSUMES NO RESPONS Y 
C NOT SUPPLIED BY DIGITAL. 
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'e¢ 
FACILITY: String support Library 


cman This module takes 2 input strings + - saat class 
dtype and returns a +1 if str es nge 
: "0 if string! = string2, or a -1 i stringl String2. 


' 
' 
i 
i 
i 
i 
t 
; ENVIRONMENT: User mode, AST Level or not or mixed 

{ AUTHOR: R. WiLL, CREATION DATE: 26-Mar-79 

MODIFIED BY: 

i R. Will, 5 oll VERSION 01 

i 1-001 -‘ori gine al 

: 1-002 = Str ng ne cegnur. change name to STR$, remove = length. 
' 
' 
' 
' 
' 
' 


! Ri 

! 1-003 - Use CHSCOMPARE jratees ef CHSEQL. CHSEQL returns 1 if 

: salts match ‘er ee, Hy ac is not what this routine is 

: posed to do! °S Och=19 

!' 1-004 - et revs ie to recognize ssetttonel classes of descriptors 
. STRSGET_LEN_ADDR to extract length and address 

° byte of data a {roe ce seecciptors. emove string 

$ nterlech ta code. 

! 1-005 - Speed up code. RKR react =198T, 


nor 1S-seort9es 94:58:0)  yAnedt olien=sz viscera Page 2 
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vv 


16°$ 
14S 
' 


i SWITCHES: 

SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

SWITCHES ZIP; 

i LINKAGES 

REQUIRE "RTLIN:STRLNK'; 


TABLE OF CONTENTS: 


! Linkage to LIBSANALYZE_DESC_R3 


FORWARD ROUTINE 
STRSCOMPARE ; ! compare 2 strings, same contents with blank fill 


INCLUDE FILES: 


REQUIRE VRILIN:RILPSECT® ¢ 
REQUIRE 'RTLIN: STRMACROS’; 
LISRARY ‘RTLSTARLE'; 


MACROS: NONE 


' Declare PSECTS code 
' use shetne macros to write code 
! STARLET Library for macros and symbols 


i EQUATED SYMBOLS: NONE 


PSECT DECLARATIONS 


DECLARE_PSECTS (STR); 


i OWN STORAGE: NONE 


EXTERNAL REFERENCES 
NONE 
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2 
STRSCOMPARE 18-56 -1984 01:33: AX-11 Bliss-32 V4.0-74 P 
1=006 eet) PR Ph rs Ley ek oP ine 
: 171 136 ELSE ! do it the h : 
1%9 } 6 ° the hard way } 
: 17 1364 BEGIN ; 
: 174 1365 LOCAL : 
3 79 1 28 S1_LENGTH, ! Length of first string ° 
3 178 136 $1_ADD ! Address of ist data arte of first string ; 
: 17 1368 Sg-LENGTH, i Length of second str ng ; 
3 178 : 3 S2_ADDR; ! Address of ist data byte of second string : 
: 180 1371 3 4 : 
5 183 } Le Compute the Lengths and address of first bytes involved : 
.¢ 1374 3 ; 
; 184 3 SSTRSGET_LEN_ADDR (STRING1, S1_LENGTH, S1_ADDR) ; ; 
; 186 rt SSTRSGET_LEN_ADDR (STRING2, S2_LENGTH, S2_ADDR) ; F 
: 188 1379 3 !4 : 
; 189 1380 ! Return the value from CHSCOMPARE 3 
Gea Bhs 7 
; 198 1 HE i RETURN (CHSCOMPARE (.S1_LENGTH, .S1_ADDR, ! contents = ? : 
: 19 1384 4 ~S2-LENGTH, .S2-ADDR, ; 
: 194 1385 ; STRSK_FILL._CHAR™)); : 
: 195 1386 F 
: 196 1387 2 END ; 
: 197 1388 1 END; ! End of STRSCOMPARE 
.TITLE STRSCOMPARE 
-IDENT \1-006\ 
.EXTRN STRSANALYZE_SDESC_R1 
.PSECT _STRSCODE,NOWRT, SHR, PIC,2 
007¢ 00000 .ENTRY STRSCOMPARE, Save R2,R3,R4,R5,R6 ; 
55 04 Ac 7D 00002 MOVQ STRINGI, R : 
51 04 00006 CLRL sR : 
02 03 A3 91 00008 CMPB = s«3(RS), #2 ; 
19 1A 0000C BGTRU 1$ ; 
51 06 OF INCL = R1 : 
50 08 aC 1 VL TRING2 RO ; 
02 AO 91 00014 P (RO), #2 ; 
Op A 00018 BGTRU 1$ ; 
54 1 po 1A #1, R4 ; 
& 20 04 65 * 65 D 0001 CMPCS (R5), a4(R5), #32, <R6), a4(R6) 
Be 11 BRB 6$ : 
9 1 5 1$: BLBC —=._«aR1,_ 28 ; 
3 63 A MOVZ2WL (R5), $1_LENGTH : 
2 06 =A p D VL 4(R5$, ST_ADDR ; 
F BRB Hy 3 
0 p 2$: MOVL 5, RO ; 
000000006 JSB STRSANALYZE_SDESC_R1 ; 
D C MOVL RO, RS F 
D F MOVL RI, R ; 
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_STRSCODE + 0000 


108 bytes, Routine Base: 


3; Routine Size: 
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TRSCOMPARE 16- Sep-1984 33:01 AX-11 Bliss-32 V4.0 
-006 et aes Pik Pee rg ey ie Pe 
199 1389 1 END 
200 1350} ENOpon poe oe ee 


PSECT SUMMARY 
Name Bytes Attributes 
_STRSCODE 108 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ecocees= Symbols ooeee--- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#LISS:STRCOMPAR/0BJ=0BJ$: STRCOMPAR MSRC$: STRCOMPAR/UPDATE=(ENH$: STRCOMPAR 


ize: 
Ss + 108 6°08 7 + 0 data bytes 


Elapsed. ttee: 

Lines/CPU Min: 

Lexemes/CPU-Min: $ 2b 
"Y Used: 82 pages 

Compilation Complete 
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